home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / trigform.sit / Trig Formulas / card_4840.txt < prev    next >
Text File  |  1987-12-30  |  5KB  |  251 lines
  1. -- card: 4840 from stack: in
  2. -- bmap block id: 2358
  3. -- flags: 0000
  4. -- background id: 2669
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on unhiliteAll
  8.   repeat with num = 1 to 6
  9.     set hilite of button num to false
  10.   end repeat
  11. end unhiliteAll
  12.  
  13.  
  14.  
  15. -- part 2 (field)
  16. -- low flags: 00
  17. -- high flags: 0000
  18. -- rect: left=63 top=89 right=108 bottom=121
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 14
  24. -- style flags: 0
  25. -- line height: 18
  26. -- part name: Radians
  27. ----- HyperTalk script -----
  28. on closeField
  29.   unhiliteAll
  30.   put (card field Radians * 180 / pi) mod 360 into temp
  31.   put round(temp * 100) / 100 into card field Degrees
  32. end closeField
  33.  
  34.  
  35. -- part 3 (field)
  36. -- low flags: 00
  37. -- high flags: 0000
  38. -- rect: left=63 top=112 right=131 bottom=121
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 14
  44. -- style flags: 0
  45. -- line height: 18
  46. -- part name: Degrees
  47. ----- HyperTalk script -----
  48. on closeField
  49.   unhiliteAll
  50.   put (card field Degrees mod 360) * pi / 180 into temp
  51.   put round(temp * 10000) / 10000 into card field Radians
  52. end closeField
  53.  
  54.  
  55. -- part 4 (button)
  56. -- low flags: 00
  57. -- high flags: 4000
  58. -- rect: left=202 top=69 right=96 bottom=267
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   unhiliteAll
  70.   put sin(card field Radians) into temp
  71.   put round(temp * 10000) / 10000 into card field Result
  72.   set hilite of target to true
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 7 (field)
  78. -- low flags: 00
  79. -- high flags: 0002
  80. -- rect: left=382 top=103 right=122 bottom=471
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 14
  86. -- style flags: 0
  87. -- line height: 18
  88. -- part name: Result
  89.  
  90.  
  91. -- part 10 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=202 top=96 right=123 bottom=267
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   unhiliteAll
  106.   put cos(card field Radians) into temp
  107.   put round(temp * 10000) / 10000 into card field Result
  108.   set hilite of target to true
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 11 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=202 top=123 right=150 bottom=267
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   unhiliteAll
  128.   if (card field Degrees + 90) mod 180 is 0 then
  129.     put "Γê₧" into card field Result
  130.   else
  131.     put tan(card field Radians) into temp
  132.     put round(temp * 10000) / 10000 into card field Result
  133.   end if
  134.   set hilite of target to true
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 12 (button)
  140. -- low flags: 00
  141. -- high flags: 0000
  142. -- rect: left=285 top=69 right=96 bottom=350
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: 
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   unhiliteAll
  154.   if abs(sin(card field Radians)) < 0.0001 then
  155.     put "Γê₧" into card field Result
  156.   else
  157.     put 1/sin(card field Radians) into temp
  158.     put round(temp * 10000) / 10000 into card field Result
  159.   end if
  160.   set hilite of target to true
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 13 (button)
  166. -- low flags: 00
  167. -- high flags: 0000
  168. -- rect: left=285 top=96 right=123 bottom=350
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: 
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   unhiliteAll
  180.   if abs(cos(card field Radians)) < 0.0001 then
  181.     put "Γê₧" into card field Result
  182.   else
  183.     put 1/cos(card field Radians) into temp
  184.     put round(temp * 10000) / 10000 into card field Result
  185.   end if
  186.   set hilite of target to true
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 14 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=285 top=123 right=150 bottom=350
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: 
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   unhiliteAll
  206.   if card field Degrees mod 180 is 0 then
  207.     put "Γê₧" into card field Result
  208.   else
  209.     if (card field Degrees + 90) mod 180 is 0 then
  210.       put 0 into card field Result
  211.     else
  212.       put 1/tan(card field Radians) into temp
  213.       put round(temp * 10000) / 10000 into card field Result
  214.     end if
  215.   end if
  216.   set hilite of target to true
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 16 (button)
  222. -- low flags: 00
  223. -- high flags: 0000
  224. -- rect: left=277 top=296 right=337 bottom=461
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: New Button
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   go to card id 2869
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241. -- part contents for card part 7
  242. ----- text -----
  243. 0.5
  244.  
  245. -- part contents for card part 3
  246. ----- text -----
  247. 30
  248.  
  249. -- part contents for card part 2
  250. ----- text -----
  251. 0.5236